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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


® 
* 
* 
& 
is THIS SOFTWARE. 1s yfURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 

* 
ig THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE + 
is SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. . 
: * 
i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

& 

ke 

® 
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' 
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: 

MODIFIED BY: 

i V02-001 REFORMAT Maria del C. Nasr 01-Aug-1980 


: macros to extract offsets, field widths, etc., from field extraction macros 


MACRO $BYTEOFFSET (OFFSET, POSITION, WIDTH, SIGN) = OFFSETS; 
MACRO $BITPOSITION (OFFSET, POSITION, WIDTH, SIGN) = POSITIONZ; 
MACRO) SFIELDWIDTH (OFFSET, POSITION, WIDTH, SIGN) = WIDTH2; 
MACRO SEXTENSION (OFFSET, POSITION, WIDTH, SIGN) = SIGNZ; 


MACRO $f LELDMASK (OFFSET, POSITION WIDTH, SIGN) = 
(1*(POSITION*¢WIDTHS = 1°POSITIO 


' 
: macro to generate equist constructs 
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MACRO 
SEQULST(P,G,i1,S)C435= 
% AME (P.GET IST. A) = 
IF NUL2ND~ A 
ZTHEN (1) * ZCOUNT*#(S) ! assumes i, s always generated by conversion program 
BEL Se GET2ND_ A 
FI %, 
GET1ST_(A,B)= | 
At, 
GET2ND_(A,B)= 
Bz ! known non-null 
NUL2ND_ (A,B) = | 
ZAULL(B) %; 
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